home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axbutton / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-12  |  6.0 KB  |  179 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   3195
  20.    ScaleWidth      =   4680
  21.    StartUpPosition =   3  'Windows Default
  22.    Begin Threed.SSPanel SSPanel1 
  23.       Height          =   420
  24.       Index           =   0
  25.       Left            =   2835
  26.       TabIndex        =   1
  27.       Top             =   270
  28.       Width           =   1545
  29.       _Version        =   65536
  30.       _ExtentX        =   2725
  31.       _ExtentY        =   741
  32.       _StockProps     =   15
  33.       Caption         =   "SSPanel1"
  34.       BackColor       =   12632256
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Arial"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Font3D          =   1
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "Command1"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   600
  58.       Left            =   1035
  59.       TabIndex        =   0
  60.       Top             =   1845
  61.       Width           =   1455
  62.    End
  63.    Begin Threed.SSPanel SSPanel1 
  64.       Height          =   420
  65.       Index           =   1
  66.       Left            =   2835
  67.       TabIndex        =   2
  68.       Top             =   765
  69.       Width           =   1545
  70.       _Version        =   65536
  71.       _ExtentX        =   2725
  72.       _ExtentY        =   741
  73.       _StockProps     =   15
  74.       Caption         =   "SSPanel1"
  75.       BackColor       =   12632256
  76.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  77.          Name            =   "Arial"
  78.          Size            =   8.25
  79.          Charset         =   0
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       Font3D          =   2
  86.    End
  87.    Begin Threed.SSPanel SSPanel1 
  88.       Height          =   420
  89.       Index           =   2
  90.       Left            =   2835
  91.       TabIndex        =   3
  92.       Top             =   1260
  93.       Width           =   1545
  94.       _Version        =   65536
  95.       _ExtentX        =   2725
  96.       _ExtentY        =   741
  97.       _StockProps     =   15
  98.       Caption         =   "SSPanel1"
  99.       BackColor       =   12632256
  100.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  101.          Name            =   "Arial"
  102.          Size            =   8.25
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Font3D          =   3
  110.    End
  111.    Begin Threed.SSPanel SSPanel1 
  112.       Height          =   420
  113.       Index           =   3
  114.       Left            =   2835
  115.       TabIndex        =   4
  116.       Top             =   1755
  117.       Width           =   1545
  118.       _Version        =   65536
  119.       _ExtentX        =   2725
  120.       _ExtentY        =   741
  121.       _StockProps     =   15
  122.       Caption         =   "SSPanel1"
  123.       BackColor       =   12632256
  124.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.          Name            =   "Arial"
  126.          Size            =   8.25
  127.          Charset         =   0
  128.          Weight          =   400
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Font3D          =   4
  134.    End
  135. Attribute VB_Name = "Form1"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
  141.       (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, _
  142.       ByVal lpString As String, ByVal nCount As Long) As Long
  143.       
  144. Private Sub Command1_Click()
  145. Dim MyText As String
  146.    MyText = "SSPanel1"
  147.    Me.FontSize = 8
  148.    Me.ForeColor = vb3DHighlight
  149.    Call TextOut(Me.hdc, 10, 10, MyText, Len(MyText))
  150.    Me.ForeColor = vbButtonText
  151.    Call TextOut(Me.hdc, 11, 11, MyText, Len(MyText))
  152.    Me.ForeColor = vbButtonShadow
  153.    Call TextOut(Me.hdc, 10, 32, MyText, Len(MyText))
  154.    Me.ForeColor = vb3DHighlight
  155.    Call TextOut(Me.hdc, 10, 30, MyText, Len(MyText))
  156.    Me.ForeColor = vbButtonText
  157.    Call TextOut(Me.hdc, 11, 31, MyText, Len(MyText))
  158.    Me.ForeColor = vb3DHighlight
  159.    Call TextOut(Me.hdc, 12, 52, MyText, Len(MyText))
  160.    Me.ForeColor = vbButtonText
  161.    Call TextOut(Me.hdc, 11, 51, MyText, Len(MyText))
  162.    Me.ForeColor = vbButtonShadow
  163.    Call TextOut(Me.hdc, 10, 70, MyText, Len(MyText))
  164.    Me.ForeColor = vb3DHighlight
  165.    Call TextOut(Me.hdc, 12, 72, MyText, Len(MyText))
  166.    Me.ForeColor = vbButtonText
  167.    Call TextOut(Me.hdc, 11, 71, MyText, Len(MyText))
  168. '   Me.FontSize = 24
  169. '   Me.ForeColor = vbButtonShadow
  170. '   Call TextOut(Me.hdc, 10, 30, MyText, Len(MyText))
  171. '   Me.ForeColor = vb3DHighlight
  172. '   Call TextOut(Me.hdc, 12, 32, MyText, Len(MyText))
  173. '   Me.ForeColor = vbButtonText
  174. '   Call TextOut(Me.hdc, 11, 31, MyText, Len(MyText))
  175. End Sub
  176. Private Sub Form_Load()
  177.    Me.ScaleMode = vbPixels
  178. End Sub
  179.